HEWLETT-PACKARD 


HP-75 
USERS’ LIBRARY SOLUTIONS 
Finance 









HEWLETT 7 
PACKAAD 


ATTN ash 


SOPOT Zeit alge ipiaie 


kee Sno IES 

















NOTICE . 


The program material contained herein is supplied without 

representation or warranty of any kind. Hewlett-Packard ° 
Company therefore assumes no responsibility and shall 

have no liability, consequential or otherwise, of any kind 

arising from the use of this program material or any part 

thereof. 




















TABLE OF CONTENTS 


BREAKEVEN ANALYSIS i r i 5 u a é | 6 i I 8 5 4 t ‘ A I 5 t 1 
by Tom Brundage and Bill Olsen, Real Estate Microcomputing Systems, Inc. 


This program will accept as input fixed costs, sales price, variable 
costs, number of units sold, and profits. Given any four of these, it 
will compute the fifth. Given fixed costs, variable costs, unit price 
and units sold, it will compute the operating leverage. 


SECURE ES EARNINGS... kc a uk  @ ¥ ewe Ee eat ee me @ of LO 
by Tom Brundage and Bill Olsen, Real Estate Microcomputing Systems, Inc. 


Given an investment in a stock, find the number of years of constant 
growth in earnings per share to justify the purchase price of the stock. 


NOTES a ‘ I t A a u a i a i i a f i] a a i 5 i a J t | t a 20 
by Tom Brundage and Bill Olsen, Real Estate Microcomputing Systems, Inc. 


This program computes the discount amount and the net cost of a note. 
The input data are the face (future) value of the notes, the discount 
rate as a percentage, and the number of days to maturity. The program 
assumes a 360-day calendar. 


BOND PRICE AND YIELD A a I i a J i i a i s 1 J a t i ‘ I i 26 
by Tom Brundage and Bill Olsen, Real Estate Microcomputing Systems, Inc. 


This program uses a 360-day calendar to compute either the yield ona 
bond or the price of the bond. Input data are settlement date, redemp- 
tion date, annual coupon rate, redemption value , and yield or bond price 
for semi-annual bonds. 


DEPRECIATION CALCULATOR « a & «@ « eo 4 ww @ & & & & we #4 
by Tom Brundage and Bill Olsen, Real Estate Microcomputing Systems, Inc. 


This program acts as a depreciation calculator for investments using 
straight line, sum-of-years-digits, declining balance, or ACRS depre- 
ciation schedules. 


LEASE: VERSUS: PURCHASE « wv & Bea ae a ee ee ew w 2 
by Tom Brundage and Bill Olsen, Real Estate Microcomputing Systems, Inc. 


This program uses a simple model to estimate the advantage of leasing 
versus purchasing a capital asset. 





TABLE OF CONTENTS (continued) 


PRESENT VALUE OF A GEOMETRIC SERIES ......,...5..,. , 54 
by Tom Brundage and Bill Olsen, Real Estate Microcomputing Systems, Inc. 


This program computes the present value of a series of payments that 
grow at a geometric rate. Adjustments are made for inflation. 


PRESENT VALUE OF AN ARITHMETIC GRADIENT SERIES... .,... 60 
by Tom Brundage and Bill Olsen, Real Estate Microcomputing Systems, Inc. 


This program computes the present value of a series of cash flows that 
grow at a steady rate over a finite number of periods. 











— |PROGRAM DESCRIPTION. 


BREAKEVEN ANALYSIS 





Breakeven analysis is basically a technique for analyzing the relationships 
among fixed costs, variable costs, and income. Until the breakeven point is 
reached at the intersection of the total income and total cost lines, the 
producer operates at a loss. After the breakeven point, each unit produced 
and sold makes a profit. Breakeven analysis may be represented as follows: 
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The variables are: fixed costs (F), sales price per unit (P), variable costs 
per unit (V), number of units sold (U), and gross profit (GP). One can readily 
evaluate GP or U or P given the other four variables. To calculate the break- 
even volume, simply let the gross profit equal zero and calculate the number 

of units sold (U). 


To calculate the breakeven volume: 


1. Key in the fixed costs. 
2. Key in the sales price. 
3. Key in the variable costs. 
4. Enter the profits as zero. 


The program will now compute the number of units, and when you review the 
data, the answer will be included as part of the items displayed. 


To calculate the gross profit at a given volume: 


Key in the fixed costs. 

Key in the sales price. 

Key in the variable costs. 

Key in the number of units sold. 
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BREAKEVEN ANALYSIS (continued) 


The sales volume may be computed by: 


Key in the fixed costs. 
Key in the sales price. 
Key in the variable costs. 
Key in the profits desired. 


PP Ww Pr 


To calculate the required sales price to achieve a given gross profit at a 
specified sales volume: 


Key in the fixed costs. 

Key in gross profits desired. 

Key in the specified sales volume. 
Key in the variable costs. 


Fw hror 


The program will compute the sales price required to achieve the specified 
gross profits at the chosen sales volume. 


Operating Leverage 


The degree of operating leverage (OL) at a point is defined as the ratio of the 
percentage change in net operating income to the percentage change in units 

sold. The greatest degree of operating leverage is found near the breakeven 
point where a small change in sales may produce a very large increase in profits. 
Likewise, firms with a small degree of operating leverage are operating farther 
from the breakeven point, and they are relatively insensitive to changes in 

sales volume. 


e 





The necessary inputs to calculate the degree of operating leverage are fixed 
costs (F), sales price per unit (P), variable costs per unit (V), and number 
of units (U). 


The program uses the breakeven routine to enter the data, and to compute the 
variables needed for the operating leverage. 








q ISAMPLE PROBLEM 


Jon Hirsh has a new gadget that he is interested in selling. 
He wants to know the number of units he needs to sell to 
break even (profits = zero) with the following facts known: 


fixed costs : $20,000.00 


Sales price : 75,00 
variable costs : 9.81 
profits : 0.00 


Given this information, what is his leverage at 4000 units? 


(Answer : 3854 units) (Answer : leverage = 27.32) 
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Number of units: Number of Units 3853.56 RTN | 
sala’ 
Rerun for leverage computation}| Run again, View again, or End? |R [RIN] 
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INSTRUCTIONS INPUT 
Run_progran 
elect Breakeven or Leverage | PRESS Breakeven OR Leverage __|p or L [RTN] 
B = Breakeven selected) Be 
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These five prompts will 
loop through until four 
are answered with a value. 
RTN] skips to next prompt. 
After four entries, the Fixed costs VQ) ERT 

answers are displayed. [RTN]/[BACK ] 
RTN] steps to the next ee ee ee [RTN]/EBACK | 
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4) [RTN] 
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L = Leverage selected) 


If ‘V' then 3. If ‘R’ then la. ae 
f'E* then 8. Leet 
scene! 
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DESCRIPTION | NAME DESCRIPTION 
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Leverage User interaction 
i ee User interaction 





—__INOTES AND REFERENCES(_* 


Note: When viewing either breakeven analysis of leverage answers, [RTN] 
goes to next answer, [BACK] steps to prior answer. 


Reference: Breakeven Analysis, HP-12C Solutions Handbook, p. 54. 
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10 
30 
4} 
0 
&0 


Kreakeven analysis 
Computes units sold, 
vVarlable costs,fixed costs, 
selling price, or profits 
given the other four. 


| 
l 

! Given fixed costs, 

| sales price, variable 

! costs, and the number of 
fo units soeld, it will 

f compute the operating 

! leveraqe. 

] 


! Revision 44/04/82 
DELAY 2 
DISP ” $6 Breakeven analysis #$" ~Sign on message 
DIM ASL 96) 
IMAGE 16a,2x,7d.dd 
IMAGE 7d 
FOR X= 710 6 @ VCKO=0 @ NEXT X 
| 


! Single, uppercase key in ~Keturne single uppercase 
character 
DEF FNK 
Kb=KEYS © TF KG="" THEN 250 
FAK S=UPR OE CK $D 
END DEF 
l 


! Prompt and label strings ~Initialize prompts 
AbL4,46]="Fixed Costs - 

S10 A$Ll4?, 321="Sales Price . 

220 A$TSS,481=" Variable Costs " 

350 AGT4AY ,64)]="Number of Units " 

S40 A$LS6b,8G)]="Prafits " 

$90 ALG1,%5]="Leverage a 





370 1 HKreakeven or Leveraqe “Select prearam option 
$30 DISK "FRESS ";CHRE&(04194);"reakeven OG 
R ";CHRE¢€204); "everage "; 

S70 INPUT "" 5K 

AQO TF UPRCS CK $= "ER" THEN 630 

S40 TF URPRCECK SEL” THEN 380 

420 ! Fall inte leverage routine 

40 INPUT "Number of units sold "; X% @ ~“Leveraqde routine 

Ti X&="" THEN 430 

TP XP="G" THEN 4470 ~Tf user enters ‘OQ’ then quit 
ON ERROR GOTO 479 

Vis =Valcxt) © OFF ERROR © GOTO 480 
DISP "Qepe..."; ® GOTO 436 

TF VC GIECUC2D-UCSIDEVIL) THEN S410 “Test for infinite leveradqe 
DISF "Leverage is infinite at ";V¢C4 
) | 
GOW 4440 | 








________JPROGRAM LISTING 


TAO VCGIVEVCAIEIV CZK CBS CV CAIKEU CED HV -Compute leverage 
C3 -VCTDD 
Sed ! display leverage results 
5S$0 FOR A=. TO 6 
S40 DISP USING 190 , APEXK16-15,X#1 674" “Show label and quantity 
ro 340K) 
50 Gb=FNK $ 
"OO TF NQUMCGS)48 AND NUMCQG)$13% THEN SS “Wait for ‘“RTN’ or “GACK’ keys 
0 





eg Ss 


570 LF NUMCO40438 THEN S96 
SOQ X=X-2 © TF X<0 THEN X=6 “Decrement counters for “RACK? 


key 

5970 NEXT X 

600 GOTO 141406 ~Praceed to options menu 

640 ! Data entry loop 

620 ! Set C and clear variables 

630 C=4 @ FOR X¥=4 TO 5S @& VCX)=0 © NEXT 

A 

640 ! Disp 

650 FOR 4~=4 TO 5S 

650 DISF ASE XKL6-45,X¥161];," ="; ~Show next label for input 

O70 IF VCxX) THEN DISP USING 200 ; VEX) “Show previaus data that has 
been entered 


Be re ns oe 


&B80 INPUT ""; X% @ IF Xt="" THEN 740 
650 1F X$="G" THEN 4476 | ‘ 
700 ON ERROR GOTO 720 ® 
YiO VOXO=VALCX$) @ C=eO-4 @ GFF ERROR @ 
GOTO 730 
7e0 DISP "GQope...."; & GOTO 6&0 
7AQ TF NOT C THEN ¥=S 
740 NEXT X 
750 Tr C THEN 640 
760 ' Compute answers 
770 GOSUR 3870 
730 ! display the results 
770 GOSUE 1060 


S40 ! Loop back for more inputs 
gal COTO 6416 


l 

B50 | 
! Find proper formula 

G70 N= © FOR X=4 TO 5 

S30 TF VCxXo=0 THEN N=X & COTO 900 

GPU NEXT Xx 

200 ON N GOSUB 930,950,970 ,996 ,1040 

240 RE TURN 

Gey 


Fag UCL =VC4 RU CBR) “UCB ANOS) # RETURN 
! 


| 
Subroutines follow | 
| 
4 
i 


PO Vie de CSd4+ CU CS 4+ CHI /UC4) © RETURN @ 
960 | 
G7 VCORE CAC CSI4tVCLII/UC4) & RETURN 








YOU 
79Q 
1000 
1040 
1020 
1030 
1040 
4.0% G 





L066 
1070 


£060 
1070 
4,400 
| $440 
} 44.20 
44.30 
1440 


4450 
4. 4. G 
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J dJIPROGRAM LISTINGL 


! 
VE4deCSItU CAS OVC 2)-V03)) & RETURN 
{ 


VESIEVCAIKCVC2)-V0S))-V04) & RETURN 
l 

! disp results 

FOR X=4 TO S 

DISP USING i990) ; 
= "3NCX%) 

Q=F NK th 

IF NUMNCQEI8S AND NUMCOBIFLS THEN 40 

&0 

TF NUM(CQ$)48 THEN 4400 

X=X~2 @ TF XO THEN X=6 

NEXT X 

GOSUR 44406 

TF G@4="V" THEN 1040 

IF Q&="R" THEN 38 

DISF CHR# (2410); "un 

4), "1eW adain, or ";,CHRECL97) ,; 

TNPUYT "nd ' "RR"; Qh © QS=UPRCOG COS) 

Tr Q&="V" OR Geek" OR Gb="E" THEN 


AE LAKLE-15,XXL6 74" 


ELSE 4470 
adain, ";CHR$(24 


RETURN 
DELAY 41 & 


DISP © STOP 





SECURITIES EARNINGS 


Given the expected growth rate, current price per share, earnings per share, 
initial growth rate, years of declining growth rate, the discount rate, 
current payment and final P/E ratio, compute the number of years of 

constant growth to justify the current price of the stock. 


If an HP-IL printer is attached to the system, and defined by a "printer is" 
command, this program will print the results. 





a  ISAMPLE PROBLEM _ 





Given a stock with a share price of $66 and a growth rate of 4%, 
compute the number of years to justify the current price. The 
earnings per share are 2.87; the initial growth rate is 10%. The 
discount rate is 12%, the current payment ratio is 48%, the num- 
ber of years of declining growth are 6 and the final P/E ratio 
should be 12. 


CC TT™C™—CCCON SOLUTION [ss S“ FE 


INSTRUCTIONS INPUT 
ee eee 
fgn-on message 
0.08 (RTH 
66 [RTA 
2.87 [RIN 
0.10 [RTH] 
6 cert | 
ec 
Change computed P/E ratio [RTN] | 

If this is not satisfactory [RTN] . 
pan] . 
Perform computations 
Display results [RIN] | 
CRT] | 


(EPS). a7 
Final growth rate (EPS) .04 [RTN ] 


Yrs of declining growth 6 [RTN] : 
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Po SOLUTION 











INSTRUCTIONS 









RIN, 
Present value 59.18 RIN 
insi RTN 
ar | 


Jrvice 66 assumes 1 years ffemmy 
intrinsic vatue for wasto is [perm 
E [RTN] 


End program Run again, View again, or End? 
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INSTRUCTIONS DISPLAY INPUT 
Zun_progran Leeann etn apt 
jgncon message 


—* 


— 

— (Irn 
ct m7 ORT OTT | | 
~I A %|O |{|O ~O 
—+4 —| i4o jd — 
= — i i= | =. 
LJ Ly Lbkeay ;j-UN LJ 
— “MS ™“™, 
cm m7 OR | ee | 
Wo Ww wo ;w Ww 
Be > | |e I> 
©) > I | CD 
”N ~~ TDN OImaHN ran 
Led wd ~lwJ jroo Lead 


NO 


enter_data [crowth rate (decimal)? |» [RI 
[Earnings per share? (RW 
[initial growth rate in EPs? [63 [RTA] 
[Years of declining growth? __|N2 cen] 
[viscount rate (decimal)? | [RTW] 
Po RTH 
User has option to change the RIN 


) 
computed PE ratio If this is not satisfactory, [RTN ] 
Enter the new PE ratio, [RTN | 

( 


? 
13 [RW 
Perform computations 
[RTN] advances to next displa RTN1/[ BACK 
BACK] displays prior entr 
THe] ends progran 
an HP-IL printer 1s piiiheedl ait daaitalne eee | 
and if the user defined the RTN | /{| BACK 
printer by "printer is" then RTN|/} BACK 
this will be printed out one 
line at _a time [RTNJ/L BACK] 
CRTN/CBACK] 


Intrinsic value for N1=N1 is X | ERTN]/[ BACK] 











sd JUSER INSTRUCTIONS. __ 


~ 








INSTRUCTIONS 


DISPLAY 
Povice tnt years x | Er C8040 


Program options Run again, View again, or End? 


If 'R' is pressed, goto 2 
If 'V' is pressed, goto 9 
If 'E' is pressed stop 














INPUT 


R,V, or E 
[RIN | 









qa sss Sd | VARIABLE NAMES. 













DESCRIPTION NAME DESCRIPTION 
PL 








NAME 
D 
E 


Average growth rate py Payout ratio 
gg Weight in present 
F3 value routine Temporary value 
Growth rate in EPS_ 
Temporary growth rate pg | Payout ratio 
G3 Initial growth rate 
13 
K 
N 
Nl 
N2 





payout ratio 


i os | Sum of constant & Parameter in 
declining growth yrs a rounding function 
Indicates subscript 
Years of constant growth (*) variable 
as Years of declining growth Keyboard response 
gs 







Parameter in 








Alpha value input convert- 
ed to numeric value 





PROGRAM LISTING ay 


4.0 
2 Q 
30 
4 
SG 
& 0 
7Q 
3 Q 
90 
400 


14.0 
420 


1.30 
4.40 
£50 
4.60 


4.7 ( 
Led 


Log 
OG 


24d 


we Y 


mo 
mA 
mit fy 
boas vod 


260 


at G 
eC 
Bou 


400 


340 
eG 
550 

( 


“sf 
Se 
54K 


5 0 
AEG 
SPU 


3030 
jo 
40 0 
4A 
4 


4a 


| Find the number of years 

! of Constant qrowth in the 
| earning per share CEPS) to 
P justify the current share 
! price. 
! 


revision £4/701/92 


DELAY 2 @ DISP " $ Securities E “Initialize delay and display 

arnings $° Sign-on message 

DIM DCG&0) ,E¢C50) ,P C8) 

P9= 6 @ G3=_.04 “Initialize default values for 
payout ratio, growth rate 

| 

! Round X9 to PS decimal digits “~FNE rounds X? to FS places 

! 

DEF FNROCKXS,Y9) = INT COX9SMLOCY94+5/40% 

YPO/L0*Y9 

INPUT "Growth rate?"; X$ @ GN ERROR “Input for growth rate; setup 

GOTO 200 error trap 

GS=VALCK$) @ GFF ERROR © GOTO 240 


GOSUE 4470 8 GOTO 106 ~Orn error display error MESGag egy. 


and ask again 
PC43=G3 
INPUY “Current share price?"; X% @ 
ON ERROR GOTO 240 
PaVaAl CX¢) @ GFF ERROR @ GOTO 250 
GOSUR 1470 8 GOTO 220 
PC 4 =P 
INFUT "Earnings per share?"; X# & O 
N ERROR GOTO 250 
BChOH=VAlLoxX#2 © OFF ERROR @ GOTO 290 
GOSUB 41470 @ GOTO 240 
PCP EECA) 
INPUT "Initial growth rate in EPS?" 
> AS © ON ERROR GOTO 320 
Gi=VALCXh) © OFF ERROR @ GOTO 330 
GOSUER 4470 @ GOTO 300 
PCS eG 4 
INPUT “Years ef declining growth?"; 
Xt @ ON ERROR GOTO 366 
N@=VALCX$) @ CFF ERRGR ® GOTO 370 
GOSUE 4470 @ GOTO 440 
PCS SNR 
INPUT "Discount rate (decimal)?"; X 
$ @ ON ERROR GOTO 400 
4=VaAlox$s) @ GFF ERROR @ GOTO 446 
GOSUR 4470 @ GOTG 380 
PCS pK 
TMPUT "Current payout ratio?"; X% & 
GON ERROR GOTO 440 
PO=VALCX$) @ GFF ERROR © GOTO 450 








A4Q 
4% 0) 
460 
47 Q 
ASU 


ay 
af £ 
oe 
r 
7 
: 
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"09 


S40 


De 0 
44 0 
40 


330 


540 


%7 ( 
EU 


© OU 





600 
GAG 


6&2 
630 
64 0) 


650 


S56 
&7 0 
| HE 0 
i Hog 


700 
210 
Fay 
736 
749 


7G 


7 EQ 
770 
780 
790 
B00 
: 4.0 





GOSUB 4470 @ GOTO 429 
PC7)=P 0 

ECLEE CZ KCL4+G4) 
DCLI=POKECL) 

DISF "Your PE ratio is 
@ GOSUER 4220 @ TF NUMCQ$)=6 
0 

DISP "If this i6 not satisfactory," 
@ GOSUER 1220 8 IF NUMCQH9=93 THEN G 

OT 486 

DISP “enter the new PE ratio." @ GO 

SUB Le20 @ IF NUMCO4)=8 THEN GOTO 4 
70 

INPUT "Otherwise, enter 
@ ON ERROR GOTO 530 
IS3=VALCX$) @ OFF ERROR @ GOTO S40 

GOSUE 14470 @ GOTO Sid 
TF LOO THEN FC 8)=13 

K-~-G3) 

LF «PGA THEN 5&0 

DISP "Discount must be > ";,63 ® GOS 

UR Leet @ TF NUMCQ#)=S THEN GOTO 56 
( 

COTO 1280 

SOSE CLINE S/ CK -G3) 

Vise >>77>? Calculating 


".P9/(K-G3) 
THEN 48 


zero? "; X% 


ELSE PCBI=PY/¢ 


SER ea 


9 

FOR Ni=4 TO 40 
oOsS 
Q0=P 9-P Q 
NEN Ltn 
TF ONC=&S THEN 670 
QO=CP9-PO>/CN-S) 
Pi=P 0 

IF Ni=41 THEN 
FOR T=2 TO NA 


750 


ICT SE CL-f KCL +64) 
DCTISE CT KP 4 

LF 245 THEN 746 
P4ieP 41 +00 

NEXT J 


Ree (G1-GS)/CN2+4) 
FOR T=N4i+4 TO N 
Gee Geek 2 

EC TOSECT-49C44+62) 
DCTIS=E CT RP 4 

Tr 2¢5 THEN 836 





“If discount ¢ 


_ Cd J/PROG RAM LISTINGL 


“Display computed P/E ratio, 
Walt for keyboard 


new value for 
PLE ratio if 


-lige 
rie 


Computing 
Valid. 
qrowth rate, 
quit. 


~Compute the intrinsic value 

“Indicate that calculation is 
in progress 

“Reqin computations for each 

year of canstant growth 


“N as the total number of 
woivelived 
“TF total numsber of 


ekip payout ratio 


y Egy 


vey oe 
years < ‘5, 


“Compute dividends and 
per share for each 


Earnings 
YEaTr 


—~Setup rate an 


EPS 


tEnporary dqrowth 


____LCUdJ PROGRAM LISTING 





seQ PhePi+ag 
G30 NEXT I 
G40 DCN) =P9XKXE CN) “Compute dividends for final 
year of analysis 
G50 P2=DCNI/(K-GS) 
S60 TF T3=0 THEN &80 
G70 Pe@=T3KECN) 
So =P es CL +K 4N “Compute ehare price in final 
year 
B90 S= 
POG FB 4 
SiG FOR J=4 TO N “End of computation loop 
P20 FS=F BSC 4K) 
930 S=S+DC I KFS 
40) NEXT I 
950 S=S+P2 
760 IF P<S THEN 980 
970 NEXT Nd 
730 PRINT "Current share price ";FNRCP ¢ “Display results 
19,2) @ GOSUR 1220 @ TF AUMCOb)=S T 
HEN ¥8O 
P70 PRINT "Earnings per share ";FNRCP (2 
>,2) &@ GOSUBR 41220 ® TF NUMCOG)=8 TH 


EN GOTO 780 &. 

4000 PRINT "Initial growth rate (EPS) "; v 
FNRCPC2),4) @ GOSURB 4220 @ IF NUMCG 
$o=8 THEN GOTO 999 

L040 PRINT “Final growth rate CEFS) "|;FN 
R¢(P(4),2) @ GOSUB 41220 @ TF NUNC OS) 
=O THEN GOTO 1000 

LOe0 PRINT "Yroa of declining growth "jFN 
RCP¢5),4) @ GOSUR 4220 @ TF NUMCQS) 
=o THEN GOTO 46049 

LQOG PRINT "Discount rate "|;FNRCF CS) ,2) 
8 GOSUB 1220 @ TF NUMCQ¢)=S THEN 46 
m0 

A040 PRINT "Current payout ratio "|;FNROP 
(7) ,2) @ GOSUB 1220 @ IF NUMCQ#9=8 
THEN GOTO 4030 

100 PRINT “Final P/E ratio ";FNRCP C8) ,2 
) @ GOSUB F220 © TF NUMCQ$)=6 THEN 
GOTO 4040 

1060 PRINT "Price "“|jFNRCP,2)93;" assumes " 
;NI;" years” & GOSUR 4220 @ IF NUNC 
WEES THEN 41056 

{070 PRINT "Fresent value "|;FNR(S,2) @ G 
QOSUR 4220 @ ITF NUMCQ$)=8 THEN 4040 

A0G0 PRINT "“Intringic value for Nti=";N4- 
13" 28 " @ GOSUB 41220 @ TF NUM Od) = 
8S THEN GOTO 4676 & 

£060 PRINT FNR (50,2) @ GOSULK 4220 @ IF N 
UMNCQ$o=6 THEN GOTO 41066 

A200 PRINT "Price in "“jN; "years is "SP NR 
CPOXCL+KI4N, 2) @ GCOSUB eed 











[ __ JPROGRAM LISTING 


1410 
1420 
44.30 
14.40 
14.50 


4460 
44770 
1.480 
L190 
12 G0 
124.0 


1220 


1230 
14240 
1250 
126 ( 
4.279 
4.23 0 





1440 
£320 
453.30 


IF NUMCGTO=B THEN 
GOI 142680 


1.0930 


| Frepend error messaqe to 
l input prompt 


DISP "OQops..."; 
RE TURN 
! 


I monitor the 


GQt=KEYS @ IF NUMCQ$)#S AND NUMCO4) 4 
13 AND NUM CQHI¢442 THEN 4220 
GQSh-UPRCO$ CO) 

RETURN 

! Options menu 

DISP CHRS(210); "un again, ";CHR$(2414 
»,"1eWw again, or "|SCHRSC4197)9; @ INP 
UE "nd "5 Q% 

Qe=UPRC& CO) 

TF GQS$"E" AND Q$4"R" 
N GOTO i260 

TF Glthe="R" THEN 480 

TF Q$="VU" THEN 980 
DELAY 4 @ DISP @ STOP 


keyboard 


AND Q&2"V" THE 


“When chow 


OP ror 


input error 
And ack 


OCCUPrS , 
again 
oEPror 


mesgaqge for anpurt 


~Monitor the keyboard 


-~ACCEpP tT “RACK % on 


‘TAR’ 


ondy “RTN? , 


keys 


“Display optians menu 


“Accept only ee aye AE 


TAR: % 
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___ ]PROGRAM DESCRIPTION ; 


NOTES 


This program accepts the face value of a note, its discount rate (as a 
percentage) and the days to maturity of the note and computes the discount 
amount and the net cost of the note. 

The formula for the discount amount is: 


D = FxI/100«N/360 


Where: F = Face value of note 
I = Discount rate 
N = Days to maturity (360 day calendar) 


The net cost of the note is equal to face value less discount amount. 
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az ISAMPLE PROBLEML 





Bob Johnson is purchasing a $150,000 note that will mature in 126 
days. If the discount rate is 14.5%, what is the discount amount, 
and what is the net cost of the note? 


Answer: $7,612.5 and $142,387.5 


C—O CT CUI SOLUTION [ee 










~ 


INSTRUCTIONS DISPLAY INPUT 
Run the program a ee 
|_| sign-on message stotess | 
Enter the face 150000 
2 \|value of the note Face (future) value? [RTN] 
a Enter the discount rate Discount rate (%)? 14.5 [RIN] 










-_ Enter the days to maturity Days to maturity? 126 [RIN] 
View the results Face (future) value $150000 [RTN | 






_—oiscoune rate 24.5: per 
Pies ays tomatursty | parm 
Pe} Discount amount _is $7612.5 
PC net cost is suazaer.s fern) 

: 


Options menu - end program Run again, View again, or End? 
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-_]USER INSTRUCTIONS 










~Y 


ao... 
| a 
rc 
( 





) 

Enter the days to maturity Day to maturity? N LRTN] 

3 |View the results: Face (future) value F [RTN] 
[RTN] advances to meet item Discount rate I (%) [RTN]/[ BACK] 
[BACK] shows the prior item N days to maturity [RTN]/[ BACK] 


TAB] terminates the program Discount amount is D [RTN]/[ BACK] 
I net cost is #0 ERIN /LBACK] 







Rsv s Of 
Program options Run again, View again, or End? RTN] 


IF 'R! is pressed, goto 2 | 
if V's pressed, goto 3 | 


If 'E' is pressed, end program 
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yg |IVARIABLE NAMES. 













DESCRIPTION 
Face value of the note 


NAME 

po |x| number to be rounded 
ks 
|r | iscount vate | 
ks 
pe ee! 


Keyboard input 
Value of the key used 
Input value 


| NAME DESCRIPTION 
X 
K$ 
Q$ 
K$ 


Days to maturity 


Precision of | 
rounding function 





___INOTES AND REFERENCESL__ 


J Note: The program uses a 360 day calendar. 


Oe ee ee OF nee eee TE SN ROR cee ee eS Ae Bee ae PS ee PB er? ee ee ae TE ke ng ee Oe” A 8 


: 


Reference: Poole, Lon and Mary Borchers, SOME COMMON BASIC PROGRAMS, 
2nd ed., (Osborne-McGraw-Hill, 1977), p. 27-28. 
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ig 


39 
AY 
% 0 
60 
70 
0 
90) 
4100 


4.4.0 


4120 
4.30 
140 
450 
4.60 
4.7 0 


1 0 
1.70 
200 
40 
ik 
AU 
240} 


oes Ct 
2h 
mi? 
2E3Q 
ey 
400 
41.0 
320 
B40 
S46 
3S 0 
So (0 
370 
SOG 
39'0 


400 
440 


Hit 


44) 


| Notes: 

! calculates the cost of 

f a@ note, given face 

| (future) value, the discount 

! rate, and the mumber of 

f days to maturity. 

Prevision 44/04/32 

| 
DELAY 2 @ DISP ” $ Notes $” 
! round X to FP decimal digits 


~ 


| 

DEF FNROX,P) 
PNR=INTOXHLO*P+5/10°P/40%°P 
END DEF 

| 


! single upper-case key in 


DEF FNKS 

Kb=KEYE @ IF Koa" 
FNIC$=UPROCS CKD 

END DEF 

ft begin data input 
INPUT "Face (future) yvalue?"; Xé & 
ON ERROR GOTO 270 

F=VAL CX) @ OFF ERROR &@ 
N @70 ELSE 280 
DISP "“Oops..."3 & 


THEN 200 


IF F¢=0 THE 


GOTO 250 


INPUT "Dascount 
ERROR GOTO 300 
T=VAL CXS) @ GFE 
N S00 ELSE 3106 
DISP "Oops..."; & 
INPUT "Days te 
ERROR GOTO 330 
N=VaLoxXh> & OFF 
N 240 ELSE 370 
DISP "“Goepe. 1.3 & 


rate (A22";, Xb © ON 


ERROR @ IF T¢=0 THE 
GOTO 200 


maturity’"; X$ & GIN 


ERROR @ TF Ne=0 THE 


COTO 840 
Compute results 


! 

DPT /LOOEN/Z SSG 
! Gutput values 

| 

DISP “Face (future)? value $";F © GO 
SUB S500 @ TF NUMNCQ#)=8 THEN 4456 
DISP "Discount rate”’;1; "4%" @ GOSUB 
200 @ TF NUMCQd>=S THEN 44.0 
DISP Ny"days to maturity" & 
00 @ TF NUMCR$o=S THEN 420 


GOSUE 


_ Md J PROGRAM LISTING 


“Digplay sian-on message 
“This function raunds X t 
digits 


-~KReturns single 
character 


uppercase 


“Digcplay prompt, set 
tG 
Valid 
to 


-Convert alpha 

numeric, test data 
“Prepend error messaqe 
prompt and ask again 


input 


“Compute the disceaunt ama 


“Display the face value, 
For keyboard 
“Display next line 
monitor kevboard 


of out 


are OY 





Oo FP 


trap 


ty 
input 


wnt 


Wai. t ey 


put, 


me 











25 


_ CLUJ PROGRAM LISTING 


44 {) 


4% Q 


460 
47 Q 
43 0 
490 
500 


24.0 
YQ 
53 0 
540 
550 


560 


S70 
Oo 0 
mY () 
& 00 
64.0 


DISP “Discount amount is $";FNR(D,4 
> @ GOSUR 500 @ IF NUM(Q4)0=6 THEN 4 
39 

DISF "Net cost is ¢";FNK¢CF-D,4) @© G 
OSU S60 @ TF NUMCQ%)=8 THEN 440 
GOTO S66 

| Monitor the keyboard 

| 

Qh=F NK @ TF NUMCOG 443 AND NUMC OS) 
HO AND NUMCOG #142 THEN 506 

IF NUM{O#)=442 THEN 6140 

Ri TUR 

| Present options meny 

DISP CHR$(2410);"un again, ";CHRE( 214 
);,;"1ew again, or "|; CHRECA97); © TNP 
Ut "nde"; a4 

GQE=UPRCE € WD 

TF GEER AND GEETE” AND Ota’ VY" THE 
N SSO 

Lk GG="K" THEN 4100 

Tr @="O" THEN 440 

DELAY & © DISP & STOP 





“Accept only “RTN’, “RACK’ ox 
"TARY keys 
“Guat if ’TGHE’ was pressed 


“Display optieans menu 


“Accept only the “R’, “7%, or 


“—iEn’ keys 
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__JPROGRAM DESCRIPTION. ___| 


BOND PRICE AND YIELD 





The program uses a 360 day calendar and given the redemption date, settlement 
date, annual coupon rate, redemption value, annual yield or bond price, will 
compute either the bond price or annual yield for semi-annual coupon bonds. 


The program computes the number of coupon periods between the settlement and 
redemption dates, and uses this in computing the bond price. 


If an HP-IL printer is attached and defined by "printer is", this program 
will print the results. 





27 


¢—_— SAMPLE PROBLEM. 





Mark is interested in purchasing a bond that yields 6.23%. 
The bond has a coupon of 5%. If the settlement date is 
/,/, 1983 and the redemption date is 6,30, 1985, what is 
the price of the bond? 

Jane is buying a 3.22% bond for $89.43. The settlement 


date is 3,23, 1982 and the maturity date is 5,25, 1988. 
What is the bond's yield? 


po CU SOLUTIONL 


INSTRUCTIONS DISPLAY INPUT 

Run program > Bond Price and Yield 3 

Enter settlement date: Settlement date (mm,dd ? RTN] 

Enter redemption date: Redemption date (mm,dd 2 RIN 

Enter annual coupon rate: einen en RIN 

Redemption value=100, so skip | Redemption value? RTN 

Enter annual yield (%): Annual yield (%)? 6.23 [RIN] 

Display answers: Number of coupon periods 3.96 [RTN ] 
Annual coupon rate (%) 5 [RTN | 





cen 
aT] 
am 
Program options: R [RTN] 
Sign-on message 


Second problem: Settlement date (mm,dd,yyyy)? 


S50 ogh JOC 


5,25,1988 
Redemption date (mm,dd,yyyy)? [RTN ] 


Annual coupon rate (%)? 3.22 [RTN 
Redemption value? [RTN ] 
Annual yield (%)? RTN 


~O 
| 
= 





4 
Oo > CO RO Jee re 
oO 
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po LU SSOLUTION 








INSTRUCTIONS DISPLAY INPUT 
pond price? gg 3 rN 


6 3 
{| saat coupon rate (2) 3.22 
ad 


Y 







pf Retention vatue 10 
| annus vite 5.246 ce 
| ond price 09.43 ce 


End program Run again, View again, or End? E [RTN] 
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ja USER INSTRUCTIONS|L__ 





[run program, | 
mm,dd,yyyy 
ik 
mm,dd,yyyy 
Enter redemption date: RTN] 
n CRTA 
Enter redemption value if it iielinwes oe RTA 
rot eat wioo | 
n [ATH] 
P (aT 
“et 
eINI/TBACk 
-RIN]/[BACKI 
IN]/ 880K) 
Pons rice rt 
Run again, View again, or End? CRTN] 


is pressed goto la 


Oe eee = 
“9 


Ww 





“wa 
<— 
ee 
s 
™ 


— #£%+| et 
+ | 
< |» 


is pressed goto 3 


is pressed end program. 


-— 
—h 
[Ti 
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DESCRIPTION NAME DESCRIPTION 
Parameter in bond Annual coupon rate - 
A price computation Rl for output 
Parameter in year 
Bond price Sl conversion routine 
Temporary variable Parameter in year 
C in bond yield $2 conversion routine 
Number of coupon periods Pow Redemption value 
Converted days for Parameter in the 
Settlement date rounding function 
Converted days for 
Yield 


redemption date py 
Temporary, variable in 
Difference between D2 & Dl | yy | Tempg routine 
i‘. Yield - held for output 


V1 
X 
Y 
Y1 
Day of month - 
redemption date he 
Y8 Year number - redemption 
Y9 


Ci 
D1 
D2 


Day of month - 

settlement date 

in bond yield Year number - settlement 

Temporary variable os | Parameter in 

J in bond price Z rounding function 

M8 Month number - redemption Upper case keyboard input 

M9 Month number - settlement rae Keyboard input 

Computed bond price in ee 

ield computations X$ Alphabetic input values 

Y$ 
Z$ 


D3 
jt 


Annual coupon rate - 
computations 


that are converted to 


numeric for later use 





VARIABLE NAMES. 
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_ Cd J PROGRAM LISTING 


16 6 


190 
200 
ei 


me Q 
50 
a4 
20 





8 0) 


200 
440 


poet 


330 
44 0 
356 
3O0 


70 
3S Q 
390 


4og 





410 
42 ( 


i Given the number of coupon 
| periods between settlement 
| date and redemption date, 
i the annual coupon rate as 
! a percent, the redemption 
! value Cif other than 4100), 
! and the annual yield as a 
| percent, compute the ‘flat’ 
! price. 

! 
! 
| 


revision 441/041/682 


DELAY 2 & 
Yield $" 
{ 


DISP ” $* Hond Price and 


Pr convert to 360-day calendar 


! 

DEF FNACS4,S2,54) = 360KS34350%541492 
| 

! Compute price of bond 

! 

DEF FNECA) = R/OKCE/CY SES CCL AY / 2) 4D 
Sr dtV¥/ 20 +47 OOKCL FY /29% C-D3) 

! Round Z 
| 

DEF FNR(Z,P) = 
Q“P 

| Single upper-case key in 


to F decimal places 


INT CLKLO*SP+S/40°R 74. 


j 
DEF FNK4 
K$=KEY$ @ IF Kee" 
FNK $=UPROS (KS) 
END DEF 
| 


THEN 300 


| beqin data 
INPUT "Settlement datetmm,dd,yyyy)? 
"; AG,Y&,2% © ON ERROR COTO 380 
PEVelL exh) @ DY=EVALCY$) @ YS=VAL CZ 
) #@ OFF ERROR @ DLEFNACHD DY. YS) & 
COTO S90 

GOSUE £060 8 GOTO 360 

INPUT “Redemption date (mm ,dd,yyyy? 
"3 Xt, 7h, 2% @ ON ERROR GOTO 440 
MG=VAlLCX$) @ DS=VALCY$) @ YE=VALCZE 
> 8 OFF ERROR @ DE=FNACMS ,DB,YES) ®@ 
GOTG 420 

GOSUK 1040 @ GOTO 396 
Chl=(De-D19/480 


input 


“Function te canvert date to 


560 day calendar 


~“Compute the price of the bond 


~Kound Z to P places 


“Monitor keyboard and return 


UPPEr Case C haracter 


“ACCEPT input values far 
Settlement date 
“Convert input ta 
convert to 450 day 


NumMeric, 
calendar 


“Process error and ask again 


nmumber 
for 


-~Canpute 
periods 


of coupon 
SemMir-annual 


coupons 
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CLUJ PROGRAM LISTING 


440 


4h (J 
460 


45 0 
4st 
2 OG 


546 
wo 

B30 
49 
0 


60 
570 
SBg 


590 
£09 


& 4.0 
62g 
HSt 
540 
bh 
650 
679 
660 


59 i 
7 OG 





‘ ' 
iy die 


INPUT "Annual coupon rate (4I9"; XH 

8 ON ERROR GOTO 450 

Ri=VAL CX) © R=R4L @ OFF ERROR @ GOT 

O 46% 

GOSUR 1040 @ GOTO 430 

INFUT "Redemption value?"; X% @ ON 

ERROR GOTO 496 

IF X#="" VHEN V4i=i00 @ OFF ERROR &@ 

GOTO 500 

ViTVAL CX) © OFF ERROR @ GOTO S60 

GOSUB 4040 @ GOTO 460 

INPUT “Annual yield (€24)7"; X#% © ON 

ERROR GOTO S30 

IF X$=2"" THEN Y=0 @ Ye=yY @ GOTO 550 

YEVALCX$) © Ye=Y @ GFF ERROR © GOTG 

540 

GOSUR 41040 @ GOTO 500 

TF YEO THEN 740 

INPUT “Kond price?"; X# @ ON ERRGR 

GOTO S?7O 

B=VaAlCxd) © OFF ERROR & GOTO S36 

GOSUR 40140 @ GOTO 550 

DS=CFNACMS ,DS,YSI-FNACMS , DY ,Y9)) 736 “Compute the number of years 

Q for the life of the bond 

L=Rt CL OO-BD/DS &@ DS=2kD3 -~Interest on the bond 

C=¢(R+i100)/2 @ YsI/C ~Campute the initial quess of 
the yield 

IF Y¥<=0Q THEN DISP "Yield i8 negativyv “Tf the yield is neqative, 

@e oor zero" @ Ye=Y*eI00 © GOTO &50 Lnform user and goto end 

IF FNECYOCHR THEN Y4=¥/2 © GOTO 650 ~If computed yield generates 

ELSE YeekKyY © GOTO 620 bond price, exit 

YEYr ee yd 

YRyYr yd. 

PRENECY ) “Campute test bond price using 
@etimated yiedd 

TF @BS¢P-BO¢ 004 THEN 65'0 “If the difference 16 Less than 
jf cent, G@xit 





Yisyi/se 

TF FP-K¢O THEN 630 ELSE 640 

Y2=YK4 00 } 

GOTO S50 

! 

1 Compute bond price 

fo TF Yi=0 THEN 350 ~TF anput yield is zero, error 
@xXxiLStSs;,; ask again 

J=Hf-F RP CCA) 

ReR/LOG @ Y=Y/400 

IF Cac=4 THEN &00 -TF number ef coupon periods <¢ 

i, use different formula 





BEVERLEY /2 8 C-CA4ALUOKCR SY IKCCLEYS 
2A TH CLF /2 9° O-C4 DDL OOKOR ZS OKT 
COTO 850 

Be CVLtR /e oS CLAY /2KCL AR /OKT 





, 
Jb 
. 
5 


$4.0 
8220 
: 330 
: 84 
B50 





So 0 


SS'0 


700 
$4.0 
72 Q 
9S 
740 


9% 0 
960 
oO 
| FB t 
) 999 
: £000 
404.9 
4020 
4040 
4.040 
4,050 
1060 





1.079 
4,080 





1050 
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SLU PROGRAM LISTINGL 


! 
! 
! View the data 
! 
PRINT "Number of coupon pericds "5F “Display results 
NRCOCi,2) @ COSUB 940 @ TF NUMCO$>=8 
THEN 850 
PRINT “Annual coupon rate CA "ZR4 ~Dieplay next item. If “BACK ’ 
®@ GOSUR $460 @ IF NUMCQ$>=8 THEN 850 key pressed, show last item 
PRINT "Redemption value ";V4 © GOSU 
B40 @ IF NUM(OHOFO THEN 860 
PRINT “Annual yield "j;FNRCY2,3) © G 
OSUB 940 @ IF NUMNCQ#)=8 THEN GOTO & 
7? 
PRINT "“Kond price ";FNR(B,2) @ GOSU 
B 940 @ TF NUMCQ$)=8 THEN 880 
GOTO 1060 
! Monitor the keyboard 
| 
Qé=FNKS @ TF NUMC QE) AND NUM COE) # -Monitor keyboard for “RTN’, 
i353 AND NUM(CQ$)4442 THEN 940 “BACK ’ or “TAR keys 
LF NUMCO$)=442 THEN 41090 ~Tf “TAK? pressed, quit 
RE TURN 
| 
! Prepend error message 
! to input prompt 
DISP "“OQops..."; 
RETURN 


! Pisplay options menu 

DISP CHR#e¢2109;"un again, ";CHRS C214 -~Display program options 
);"dew again, or "j;CHREC197); @ INP 

UT "nd?" ,Q4% 

GE=UPRCOS CO) 

GN POSC’RVE’ ,G$)+4 GOTO 1660,130,85 

gQ,41090 

DELAY 4 @ DISP °" & STOP 








______—«4IPROGRAM DESCRIPTION 


DEPRECIATION CALCULATOR 





This program will calculate depreciation schedules for investments using 
Straightline, sum-of-years'-digits, declining balance and ACRS methods. The 
input data are the life of the investment, the cost and Salvage value, and 

the month of purchase. The program will present the depreciation amounts for 
any year, or print out an entire schedule. For declining balance and ACRS 
calculations an automatic switchover to straight line is available. In the 
case of a calculation for a real estate investment with ACRS the calculation 
will be made with 175% declining balance and automatic switchover to straight- 
line. The calculations use the following formulae: 


N = asset's useful life expectancy 


I 


Starting book value 


S 


Salvage value 
F = declining balance factor (%) 


J = period number 


© 
a 
—te 
ia eal 
It 





depreciation expense for first period 


C 
-— 
co, 
ed 

j| 


depreciation expense for period j, j=2,3,...N 
R(j) = remaining depreciable value at end of period j 
M = month of purchase 
Yi = 13-M 

Straightline: 
D(i) = (I-S)/N*Y1/12 
D(j) = (1-S)/N 
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6 —_JIPROGRAM DESCRIPTION. ___ 


DEPRECIATION CALCULATOR (continued) 





Sum-of-years-digits: 


C 
rr 
— 
eee 
I 


SOYD(1)*«Y1/12 
SOYD(j)*¥1/12+D(j-1)-d(j-1)*Y1/12 


C9 
enn, 
Cu. 
~~” 

lt 


D(N+1) = R(N) 

where: SOYD(k) = (Nt+1-k)/(N*((N41)/2) )*(1-S) 
Declining balance: 

D(1) = I*xF/100*N*Y1/12 
R(j-1)*F/1004N for j=2,3,...N 


C 
en, 
C4. 
al 

{I 


D(N+1) = R(N)-S 
Accelerated Cost Recovery System: 
lives of assets are recovered over 3, 5, 10, or 15 year periods under 


the 1981 tax law. The depreciation expense is calculated for each year 
from a data table. The tables for 1981 are: 





Life Recovery percentage 


J Ly SOeod 

9 POA Cculree scl 

10 Ss l4e i210. 10.t0 9.9.9 

LS § 1079 ,0..757<565050560.050,050,0 


-' Re re er el BY ee RI Nt Se Lae tN ore OT APA na ee Bee oe eR Re ee 


Thus depreciation expense for an asset in year 3 of the 10 year schedule 
would be I*12/100. 


, For a real estate asset under ACRS 175% declining balance depreciation is taken 
with a 15 year life and automatic switchover to straight line. 





36 


_ Cd ISAMPLE PROBLEM pera 


Waincorp purchased a computer for $79,500 in March. It has 
a salvage value of $6,000 and an expected useful life of 8 
years. Using 200% declining balance with automatic switch- 
al are the depreciation expenses for years 1, 2, 

and 37 


ee OU PION 


TEP INSTRUCTIONS DISPLAY INPUT 
Run program ———_|_$ Depreciation Calculator $ 
Select declining balance Select: SL, SOYD, DB, or ACRS? DB [RTN] 
Elect switchover Switchover to SL (Y/N)? Y [RTN] 
124)? 


wa 
c 
S 

Oo 
“ 
oO 

a 
-~ 
oy 
= 


79600 [RTN 
@ [aT] 
2 [RTH] 
Depreciation factor? 200 LRTN] 
Print schedule (Y/N)? N [RTN] 
vert | enter year? | 
| epreciation = 6562.5 | RT 
ver 2 | enter year? | ar 
nu 





~™ 


SY 
— oo Mm | — | Oo |; PO [re 
-— 


onal 
M 
ou 
— 
tr 


10 


< 
(D 
eo) 
“ 
ho 


<< 
( 
e%) 
“™ 
Oo 


ee 

vers enter year g? tT 
| eprectation = ine00.78 | 
fal inquiry 0 (RTH 
13 Run again or End? R E [RIN] 


NO 


e 


é 








TEP INSTRUCTIONS DISPLAY INPUT 
§ Depreciation Calculator § 
Select depreciation method Select: SL, SOYD, DB, or ACRS? 
For sum-of-year digit, 
goto step 1l SOYD [RTN] 
cee 
goto step 19 DB [RTN] 
For ACRS goto step 27 crs 
Enter cost of investment Enter cost of investment? I ERTN] 
Enter salvage value Enter salvage value? S [RTN] 
Enter useful life Enter life expectancy? N [RTN] 
Enter month # of purchase Month of purchase (April=4)? M [RTN] 
View first year's depreciation} SL Depr ist year = [RTN | 


View subsequent 


depreciation expense Straightline = [RTN | 


View last year's depreciation RTN 
0 | coto step 33 ee 
Enter cost of investment Fnter cost of investment? I [RTN] 
Enter salvage value Enter salvage value? S [RTN] 
Enter useful life Enter life expectancy? N [RTN] 
Fnter month # of purchase Month of purchase (April=4)? M [RIN] 
Select print option Print schedule (Y/N)? Y or N [RIN 
se cone iain Nhe A ee eee serie 
sie tes obits ite NM oe cesar 
caleulation | eb Me seed 
calculation Enter year #? y [RIN] 
goto step 33 
View depreciation and a: 
goto step 17 caTN 


— 


tr [re [re 
FS ju j;P 


me fre 
Ov jor 


— 


bo — 
CO 


—_JUSERINSTRUCTIONS_____ 
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—JUSER INSTRUCTIONS! 


Enter switchover preference Y or N [RTN] 
Enter cost of investment Enter cost of investment? I [RTN] 
Enter useful life N LRTN 
Enter month # of purchase N LRTN 
Enter depreciation factor as | ae 
-ercentage, e.9.: 125,200 | depreciation factor? _—_—_|F [RW 
4 |} Select print option. If you 
select ‘Y' then schedule will ee 
be printed and goto step 33 Y or N [RTN] 
> {| Enter the year # for the cal- 
culation. Enter 0 to quit altima | Y [RIN] 
goto step 33. ae 
View deprec. & goto step 25 RTN 


select real estate option. If] Real Estate (Y/N)? Y or N ERTN] 





(O 


Cw 
DMO ERO TRO TROUT 4 
W {Po Tre [oO rm 
“oO 





you entered ‘N' goto step 30 


Enter cost of investment Enter cost of investment? I [RIN] 


Enter cost of investment Enter cost of investment? I | RIN 
335410 0F 
Enter useful life 15 years Enter life expectancy? N [RTN] 


select print option. If you 


LO 


GO JRO [PS NO TRO NO NO 
{3 CO “ST OD 


select 'Y' then schedule wil] 


7 
© 
“Ss 
rT] 
mI 
~O 
— 
<= 
Li 


be printed and goto step 33. 


Else goto step 25. Print schedule (Y/N)? Y or N [RTN &) 
To run again, enter 'R', to re 
end program enter 'E'. Run again, or End? R 


OO 


Ro to 


— VARIABLE NAMES( 


*——NOTES AND REFERENCES__ 


——— 












Real estate flag 


awe [escrow [RAE 
ni 
kta 
ae 


Schedule type 





Remaining balance for DB Depreciation factor 
Investment cost Depreciation expense 





References: 1. Calculations refer to HP-12C Owner's Handbook. 
2. "AN ANALYSIS: 1981 TAX LEGISLATION", Coopers & Lybrand, 1981. 


3. Weston & Brigham, MANAGERIAL FINANCE, (The Drylen Press, 
1981), p. 60-63. 
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40 
20 
30 
4) 
30 
& 0 
70 
Sd 
20 


100 


140 
4.2.0 
4130 
4.46 
4.50 
160 
4.70 


160 


70) 


OQ 
wid 


et 


250 


24 Q 


oot 


2&0 
wef 
at 
27 t 


300 
S10 


0 
3.90 
S40 
450 
360 
/7C 


0 


390 


! Depr - Depreciation 
! calculator 
| 


Revision 44/04/82 
DEF FNACK) = INTOX#4L004.5)/100 
DEF FNE 
IF NUMCKEY$)#13 THEN 70 
FNE=0 @ END DEF 
DISF ‘ $ Depreciation Calculator $ 
“ ® WATT 4 
INPUT ‘Select: SL, SOYD, DE, or ACR 
97°73; D& @ Dé=UPRCH$ CDS) 
lk D$=’SL’ THEN 460 
IF D$=/SQYD’ THEN 240 
iF D$=’DER’ THEN 340 
IF D$=’ACRS’ THEN 540 
GOTO 4100 
Ri=4 @ GOSUR 640 
DISP ’SL Depr ist year =’ ;FNACC43—M 
\/4EAKCI-SO/N) @ Z=FNE 
DISP ‘Straightline =’ ;FNACCI-S)/N) 
@ Z=FNE 
DISP ‘Last year =’ ;FNACCI-S)/N~(43- 
MO/LOKCT-S)/N) @ Z=FNE 
GOTO 789 
Ri=4 @ GOSUBR 640 @ GOSUB 730 @ IF P 
1 THEN Y=N @ GOTO 236 
GOSUB 750 
Re=I-S @ FOR X=4 TO Y & SB=(N+4-X)/ 
CNKCON+4) 72) K0T-$) 
IF X=4 THEN D4=S2kKC43-M)/12 © Si=Se 
IF X04 THEN DL=S2kC43-M) 41 24+54 @ S34 
=aS2—~SAKCLS-MO 12 
IF Pi THEN PRINT ‘Year’;X%;/% =’, D4. 
R2=KRe-Di @ NEXT X 
IF Fai THEN PRINT “Year’;X%3;/ =’;3;R2 
IF NOT P4 THEN DISF ‘Depreciation = 
°;04 @ Z=FNE © GOTO 220 
GOTO 7&o 
INPUT “Switchover to SL CY/N)7,°Y¢,; 
ob @ TF UPRCSCS5¢04,4]).=°Y"% THEN $4 
=f ELSE S49 
Ri=0 © GOSUBR 640 
PNPUT “Depreciation factor?’  F 
GOSUG 740 @ TF NOT F4 THEN 340 
YEN 8 GOTO 370 
GOSUB 759 
R=I @ FOR X=4 TO MINCY,N) 
TiskKXF/N/4100 @ TF S4 THEN Di=Max¢ 14. 
> (R-SERAD ZS ON-X 42-04 3-M)/12)) ELSE D 
1=T4 
TF X#4 THEN D4i=€43-M)/42kT4 @ R=eR-D 
i @® COTO 410 





“Round X to two places 
“Function to wait for “RITN’ key 


“Display sian-on message 


“Select depreciation schedule 


“Straight line 





“Sum-af-years digits 


~“Declining balance 


“enter depreciation factor 
“Select print aption 


J 
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40 0 


410 
420 
430 
44 () 
AG 


460 
470 


450) 


4S} 
800 
40 


“2G 


530 
% 40 
SG 
SOU 
©7 0 
SE 
oo G 


&00 
G10 


pe 
ve Ae 


&A0 


G40 
650 


bo Q 
&'? ( 
SE 0) 
6 9G 
740 


74.0 


vee 
é t. 1 a 


750 


me ofS 


“ING 
Se 


R=R~-Di. 


IF X#Y AND NOT Pi THEN 460 

IF NOT Pi THEN 450 

PRINT ’Year’;X%;% =7 5; FNACDS) 

GOTO 469 

DISF ‘Depreciation =’ ;FNACDL) &@ 
NB 

NEXT X 

IF NOT Pi AND Y=N+4 THEN DISP 
eciation =7;FNACR<-S) @ Z=FNE 
IF Pi THEN PRINT ‘Year’ ;Y¥+ti;% =%5FN 

ACR-S) 

IF NOT Pi THEN GOTO 360 

GOTO 780 

INPUT “Real Estate (Y/N) 2%; R& © TI 

F UPRO#CRSO4,2979=°Y"% THEN R4i=0 @ M= 

& ELSE Ri=4 

IF NOT R4 THEN Si=4. 
640 @ GOTO 440 
GOSUB 640 @ GOSUB 730 

IF N=3 THEN RESTORE 62 
IF N=S THEN RESTORE 830 
IF N=i0 THEN RESTORE 840 
IF N=15 THEN RESTORE &50 
IF Pi THEN 620 

GOSUR 750 @ FOR X=4 
@ NEXT X 

DISP “Depreciation 

Z=FNE @ GOTO 540 


@ Fei75 @ GOSUR 


i" My 


TO Y @ READ Di 


=/ 5 TEDL/4 00 


FOR A= TO N @ READ Di 

PRING ‘Year’;%37% =%;,0kD41/100 © NEXT 
A @® GOTO 780 

INPUT ‘Enter cost of investment?’ 51 

S=0 @ TF Dbb’ACKS’ AND Db#’ DER’ THEN 
INPUT ’inter salvage value?’ 3S 

IF NOT Ri. AND DEED’ THEN N=41S & RK 

E TURN 

LNPUT “Enter 
IF DE=" ACKS ” 

INPUT “Month 
eh 

TF M<4 OR M42 
valid month’ & 

RETURN 

Te NGS AND NAS AND NAL 

EN BEEP © DISP “Invalid 

O 670 ELSE RETURN 

INPUT “Print schedule CY/N) 77; FS 

@ TF UPRCSCPSEL ,f dd= "7% THEN Pied E 

LSE Pass Q 

RETURN 
INE UT 


life expectancy?’ ;N 
THEN 720 
of purchase CApril=4)? 
THEN BEEF 
GOTO 690 


DISP “In 


AND 
Life’ 


NE45 TH 
@ GOT 


‘Enter year 7° ;Y 





'-Select proper 


“Subtract depreciation fram 


remaining book value 


~ACRS depreciation schedule- 
select real estate aption 


“Tf real estate use 
declining balance 
“Get anput data, print option 

table 


L754 


“Get year nusber ta display and 
table value 

“Display result 

“Wait for return 
for year number 


ask 


key and 
again 


“ACCept input data 
“Get salyage value 
SOYD 
“Set 15 
estate 


for SL and 


year jlaife far ACRS real 


option 


“Check validity of life for 


ACR S 


“Geject prant eption 


~Get year number 
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760 Y=INTCARSCY)) © IF Y>0 AND YC=une4 T 
HEN RETURN 
770 IF YG THEN BEEP @ DISP “Year out o 
Fo ranqe! / ian 7199 
730 DISP CHR#(¢2140)0;’un again or ’ , CHR ¢ “Program options 





£97); 
750 INPUT ‘nd?’,/R’; G@% @ GS=UPROSCOEL4 
.41) 


S00 ON POS(’RE’ ,Qb)44 GOTO 780,100,846 
SiG DISP @ STOP 


82 DATA 25,38,37 “2994 ACRS tables ~ three year 
table 

O30 DATA 15,22,21,24,24 “5S yoar table 

“40 DATA &,14,42,40,40,410,9,9,9,9 “i 0 year table 

850 DATA 5,10,9,8,7,7,8,6, bob Cobatce “415 year table 
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____sJIPROGRAM DESCRIPTION(L 


LEASE VERSUS PURCHASE 


S 


An investment decision frequently encountered is the decision to lease or 
purchase capital equipment. Although a thorough evaluation of a complex 

: acquisition usually requires the services of a qualified accountant, it is 
possible to simplify a number of assumptions and use annual cash flow 
estimates to produce a first approximation. 


The program assumes that the purchase is financed with a loan and that the 
loan is made for the term of the lease. (The term may be either 3, 5, 10, 
or 15 years, to correspond with the ACRS depreciation schedule). The tax 
advantages of interest paid, depreciation, and the investment credit which 
accrues from ownership are compared to the tax advantage of treating the 
lease payment as an expense. The resulting cash flows are discounted to the 
present at the firm's after-tax cost of capital. 


The program displays the net advantage of owning vs. leasing for each year of 
the analysis as well as reporting the total net advantage at the end of all 
the years. 


A negative value for the net advantage indicates that a lease is a better choice. 
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| SSC ISAMPLE PROBLEM 


Home Style Bagel Co. is evaluating the acquisition of a mixer which can 
be leased for $1,700 per year with the first and last payments in advance 
and a $750 buy-back option at the end of 10 years. The lease includes 
maintenance. The same equipment could be purchased for $10,000 with a 
12% loan. Maintenance is assumed to be 2% of the purchase price for the 
first four years. A major overhaul is predicted for the fifth year at a 
cost of $1,500. Subsequent yearly maintenance of 3% is estimated for the 
remainder of the 10 year term. The company would use the ACRS method of 
depreciation on a 10 year life with no salvage value. An accountant in- 
forms management to take the 10% capital investment tax credit at the end 
of the second year and to figure the cash flows at a 48% tax rate. The 
after-tax cost of capital (discounting rate) is 5%. 


INSTRUCTIONS DISPLAY INPUT 
2un_progran eee 


ign-on message $ Lease vs Purchase $ 


Fnter data life of investment? 10 [RTN] 
Principal of loan? 10000 [RTN] 


TEP 


m 


Loan interest rate (%)? 12 [RIN] 
Marginal tax rate (%)? 48 [RIN] 
Discount rate (%)? 5 [RIN 
| Initial year; lease amt? 3400 | RTN 
Lease payment amount? 1700 [RTN] 
200 [RTH] 
Net advantage is: 1739.58 [RTN ] 


Lease payment amount? 1700 [RTN] 


cc 
Ro fre [rR 


SOLUTION 


e 


€ 


45 


-— ]SOLUTIONL 
Jd 


INSTRUCTIONS DISPLAY INPUT 
Maintenance expenses? ‘(200 [RT¥] 
[net advantage is: 193.97 {fang 


TEP 


tea sayenk amelie.‘ 
istitehance-suenuust leno: Tm 
Net advantage is 2023.93 RIN 

Lease payment amount? 1700 [RTN] 
[Maintenance expenses ___—_[200 [RTW, 
Net advantage is 1987.24 RTN 

Lease payment amount? 1700 [RTN] 
[Maintenance expenses? 100 [RTN] 
Net advantage is 1386.5 RTN ] 

imei... toe 
itealcics aaa... alk tae 
=. J 





Net advantage is 1028.12 [RTN ] 


Lease payment amount? 1700 [RTN] 





i 
cl pmseesynses —wsiaeyenseines 
a 
2 ee 
Ep 
7 
ee, 
a 
2 ae 
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TEP 


3 


SOLUTION 


INSTRUCTIONS DISPLAY INPUT 
‘Maintenance expenses? (300 RT 
ath] 


Year: 8 


Lease payment amount? 1700 [RTN] 
[Maintenance expenses? __—_(300 [RTH] 
Net advantage is 781.08 [RTN | 
Lease payment amount? O [RTN] 
300 [RTN] 
Net advantage is: -/70.81 [RTN ] 
Lease payment amount? 0 [RTN] 
300 [RTH] 
Net advantage is: -932.02 [RIN] 
Amt and year of tax credit: . 


Amount of buy-back 750 [RTN] 


reo 
© 
Cc 
© 
RO 
| 
AI 
— 
= 
— 


Display result Final net advantage: 214.44 [RTN ] 


End proaram Run again, View again, or End? | E [RTN] 


e 





) pected USER INSTRUCTIONS... 


wom fe 
os 
? 


al 
— 
i oy =e rm 
O 
rm 
> 
ct 
(D 
-s 
oe 
mu 
cr 
m& 


( 

rT 
DERI 
i re 
Pp initiat years tease ante |. cat 
Preah 
Perform these steps for al] L [RIN 
“CRIN 
cet 
ee 
Enter tax credit and setae tak whan ieeeiae CoZ) RIN 
Pf tour oF buy-back: | at paig 

an 
var 
[if +R* pressed goto step ta | 
[it ‘v" pressed goto steps [| 





cn 


Life of investment LRTNJ 

ce 

on 
ie 


TAB] goes to step 4 Marginal tax rate (9 RTN 
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_ SECU J USER INSTRUCTIONS —_ 









op) 


TEP INSTRUCTIONS DISPLAY 
pf foi scount rate (ey par 






RTN 
Final net advantage: RTN 












A 
Al( ) 
A2 
Bl 
C 
CO 
Cl 
9 


D2 


I 
[1 





‘ 
; 


F 
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VARIABLE NAMES 





DESCRIPTION DESCRIPTION 
Amount of lease payment 
ACRS depreciation rate in year Z 
Maintenance expense 
Dollar amount to interest in vear Z 


(starts = P) 
in year N 
NPV) of buy-back R 


Tax credit in year Z1 


if 
Cost of leasing T8 
Target number in 
NPV of tax credit X rounding function 
Discount rate (percentage Z 
Discount rate (decimal ZA 
Dollar amount of ACRS 
depreciation K$ 


Loan interest rate 


L 
M 
N Life of investment 
N2 


Net advantage 


Loan principal 


Annual payment on loan 
Marginal tax 

rate (percent 

Marginal tax 

rate (decimal 


1 
T 


Total amount amortized 


—< 
MD 
ou 
> 
—e 
— 
inpemaaal 
—le 
+h 
(D 
) 
=f 
wale 
=> 
<= 
MD 
" 
ct 
= 
M 
pa 


Year of tax credit 


Key pressed by user 


percentage Q$ Key pressed by user 
Loan interest rate Alpha variables used 
decimal X$ to input data 


Usually converted 
to numeric 


Precision in 
rounding function 


GF 


NOTES AND REFERENCESlL____ 


Note: The computations assume ANNUAL data only. 


Wo Reference: HP-12C Solutions Handbook, pp. 49, 143. 
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10 


35 


340 
256 
366 
4°70 


20 


390 
AQU 
410 


420 
450 
44( 


a5 G 
& 


— 


! Given the principal, life, 

! and interest rate of a loan; 
! given the lease payments, 

! discount rate, maintenance, 

| tax credit, and buy-back, 

! compute the net advantage of 
! leasing capital equipment. 

! 
| 


ReEYVicion 44/04/82 
DIM DFCiS) ACLS) 
| 


! Round X to J decimal places 
| 


DEF FNROX,T) = INTOXK4LO%T + 5974079 


! Single upper-case key in 

| 

DEF FNK & 

KeKEYS @& TF Kb="" THEN 260 

PNK S=UPROG CK $ ) 

END DEF 

DISr "™ $ Lease va Purchase $" 
! 

| Keqin toa gather the data 

ENPUT "Life of investment? "; xs @ 
CIN ERROR GOTO 3490 

Lk X$="" THEN 270 

Tk X$= "GQ" THEN 4506 


N=VAL(X$) @ GFE ERROR @ GOTO 320 
DISK "Gops..."; @ GOTO ZA 


Tr NES AND NAS AND AGEAG AND N44 1H 

IN BEEP © GOTO 346 

INPUT "Principal of Loan? "; X%% @ O 

N ERROR GOTO 370 

LE X$="" THEN GOTO 230 

TF X$="@" THEN GOTO 4500 

P=VAL(X$) @ OFF ERROR ® GOTO 286 

DIGSF "Qops..."; @& GOTO 336 

INPUT "Laan interest rate? CA" Xt 
@ ON ERROR GOTO 420 

LFOOX$="" THEN GOTO 386 

ce X$="" THEN GOTO 4500 

P=VALCX$) @ GFF ERROR @ T4=1/400 © 

GOTO 430 

DIGP "Oeps..."; & GOTG 3ao 

INPUT "Marginal tax rate? C49" 3 XH 
MY ON ERROR GOTO 470 

Lk X$="" THEN GaTC 430 

Ik X#="Q" THEN GOTO 45600 

TeValcx$) @ CFF ERROR @ T4=1/4100 

GOTO 4890 


“ACCEeD t 


mea A 
Option 


~Comyver 


TTY 


then 


Po 
108 
oes’ 


t ta 


t; 


goto program 


Set error 


PUuMer Lc 


“Frapend error 


prompt 
“Check 


ane 
Life 


aes |e 
af 


MESEACE Ts 
again 
LOVGS tment 


trap 


& 








_ Sd JPROGRAM LISTING. 


650 


40 
5G 
&6 0 
6 U 
630 
&° 0 
7 OC 


740 
720 
FOU 
7 4Q 
7591) 
760 
770 
730 
oe 
80 0 


34.0 
Ged 
GAG 
4) 


3% ( 


Cds J 


7 O 
eG 
SOO 
¥OG 
At 


P20 


DISP "Oops..."; © GOTO 430 

INPUT "Discount rate (4927 "3; X* @ 0 
N ERROR GOTO 520 

IF X$=""" THEN 49806 

Ik X#="Q" THEN 1500 

D=EVALCKH) @ OFF ERROR © De=D/100 & 
GOTG 566 

DISF "Oops..."; @ GOTO 460 


! Select depr. schedule 

! 

TF N=3 THEN RESTORE 1540 
TF N=5 THEN RESTORE 4556 
ITF N=10 THEN RESTORE 4540 
TF N=1iS5 THEN RESTORE i576 
! 


| Compute annual depr. 


FOR X=4 TO N @ READ A 


D?POXI=PKA/SI OO @ NEXT X 

! Compute the annual pmt 

Ris LaxeP/ C4 —-C4 +24 9°%0-N)) 

B=P & ToO=0 

INPUT "Initial year: lease amt? "; 
A$ & ON ERROR GOTO 740 

Lk Ké="" THEN 700 

TF XS] "QQ" THEN 4500 

L=VAL CX#) @ OFF ERROR @ GOTO 750 
DISF "“Geps..."; © GOTO 706 

Ne=C 4-4 OK 

DTS 


! Amortize loan 

FOR Ze TON @ A407) 28K14 © AP=R1-A 
4¢Z) 

TSsTB+Ae & Hek-Ae & NEXT 7 


! OtGcplay current year 


FOR 2241 TO N @ DISF " Year: "352 


INPUT “Lease payment amount? "3; X4 
@ GN ERROR GOTO 00 

TRO Xd="" THEN GOTO Gog 

Tr X$]="G" THEN GOTO 4500 

LeVALOX#) @€ GFF ERROR @ GOTTA %416 
DISP "Goeps... "5 @ GOTO 640 

INFUT “Maintenance expenses? "; X# 
@ GON ERROR GOTO 950 

Le ABE" THEN 94.0 


~Select 


~Kuiaid 


AMOUTY TS 


~Compute annual 


~~ 


“kKupid 
payments 


“ACCA t 


for 


inttial 


each 


depr , 


array 


array of 


yaar 


schedule 


of depreciation 


payment 


lease 


amMmaun t 


terest 


and 


Lease payment, maint. 


compute 





- 


_ Cd J PROGRAM LISTING 





730 
Y4q 
FQ 
260 
P70 
730 
90 
£000 
L640 
10720 


4.030 
1040 
1056 
L060 
1070 
1080 
1090 


11.06 
A110 
41220 


1430 
1140 
1450 
14.60 
4.4.70 
List 
L190 
1200 


1224.0 
LG 
1250 
L240 
Leg 
4. 2260 
12 0 
1266 
4290 
43500 
146 


137 0 


IF X$="@" THEN 41500 
M=VALCX$) @ GFF ERROR © GOTO 990 
DISF "Oops..."; @ GOTO it 


! Compute: 

Ci=C4-T4 KL 

CO=RA-TAKCALCZ)4D90Z)994+04-THKM 

N@=N2+CC4-CO27044+D2)°2 

DISP "Net advantage is: ";FNR(N®,2) 
@ GOSUB 1440 8 IF NUM(O%$)=8 THEN 4 
020 

DISP & 
NEXT 2 


DIESP 


! Adjustments for tax 

f credits and buy-backs 

INFUT "Amt and year of tax credit: 
"; X#$,Y% @ ON ERROR GOTO 4430 
LFOX$="" OR Y= "" THEN 4090 

TF X$="Q" OR Y= "Q" THEN 4500 
C=VALCX$) @ Z24=VALCY$) © OFF ERROR 
@ GOTO 1160 

DISF "Qops..."3; @ GOTO 1090 


! Compute the net present 

|! value of the tax credit 
Coes (44029474 

2=NetCl? 

INPUT "Amount ef buyeback: "; 
ON ERROR GOTO 41240 

Tr X¢="" THEN 4206 

TIF X$="Q" THEN 4500 
BREVALCX$) © GFF ERROR 
DISF "Gepe..."3; © GOTG 


Xt 


e GOTO 
4200 


cy 7 


Compute net present value 


! of the buy-back 
| 


BYTBKCL< TLS C4402) 4N 

GEN ee 
DISP "Final net advantage: 
m,e)? 8 GOSUE 41440 @ 
EN 4340 ELSE 4560 


$" ENE ON 
KE NUMCQ$)0=8 TH 


! View data and results 


i 
DISP "Life of investment: "GN © GOS 
UB 41440 @ TF NUMCQ$)=8 THEN 43°50 
DIiSF "Principal of lean: ";P @ GOSU 
Bo4440 @ ITF NUMCQ4$)=8 THEN 4350 
DISK “Loan interest rate ";1,"%" @ 
GOSUB 1440 @ TF NUMCQ#)=8 THEN GOTO 
4.360 


-ACc justments for 
credit and buy-back 


“Digplay final net advantage 


LMVEStment tax 


» 


» 


S$ 


1300 


1470 


1400 


1440 
14290 
4430 
1440 


4450 
1460 
14790 
1480 
1470 
1506 


1510 
1520 


15330 
1540 
1550 
1560 
i570 


DISP "Marginal tax rate ";7T;"%" @ G 
QOSUB £440 @ IF NUMCQ$)=68 THEN COTO 
4370 
DISP "Discount rate ";D;"%" & GOSUE 
4440 @ TF NUMCQ$)=8 THEN COTO 41380 
DISP "Final net advantage: &";FNRON 
2e,2) & GOSUR 1440 8 TF NUMCOG)=8 TH 
EN 1390 ELSE 1500 


|! Monitor the keyboard 

|! 

GbeFNKE @ TF NUM(G$)45 AND NUMCOQS) 4 
$35 AND NUMCQ$>#142 THEN 1446 

IF NUMCQ¢)=442 THEN 1500 

RETURN 


! DPigplay options menu 

DISP CHRE(240); "un again, ";CHR$( 2414 
);"1@W again, oe "SCHRECI OZ); @ TNP 
Ur "nd "30% 

Q) 4 =: ‘UPROS COS) 

ON POSC’RVE’ ,G%)441 GOTGU 4500 ,2%0,41% 
50,4530 

DISP "" @ STOP 

DATA Eos Oey 47 

DATA 4%: 
DATA & 


peepe Nye tyes 
ee peUy ie 1 O29 9 ao 
8; i he, bok. &, os &,6,6 


DATA 5,40, 








“4984 ACRS 


tax tables 
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PROGRAM LISTINGL 


54 


_ __—sJIPROGRAM DESCRIPTION... 


PRESENT VALUE OF A GEOMETRIC SERIES 


This program computes the present value of a series of cash flows that changes 
over time, such as with inflation. Example required inputs are the payment, 
growth rate, discount rate, and the number of periods. The period for the 
payment is the same as the period for the growth and discount rates. 
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| {SAMPLE PROBLEM. 


What sum must a person have in an education fund if they 
wish to draw from the fund purchasing power equal to $550 
per month for five years? Assume a monthly inflation rate 
of .67% (8% annually), and a discount rate of .56% (6.75% 
annually). 


Fa es ated) De CIN a 





TEP 


INSTRUCTIONS 
un the program Pe 
Display results 
Program options Run again, View again, or End? 

RTN 
RTN 
RIN 


my 
—/ Aw 












cw) 
PO FR [rR 


an 


‘rey 
periods = 60 cag 
Present value = 33697.99 | rarmy 







View data and results Payment = 550 


End program 
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____—dW J USER INSTRUCTIONS. 





| TEP INSTRUCTIONS INPUT 
[un program 

wr 
RT 
1 [Rt] 
6 (TN 

Display results. [RIN] 

eet 


~~ 
mm Tee 


Lif! then gotote | 
[if 'e* then program stops. | 
If 'V' then view data and | Payment = rey 
results. [RT] advances to | Discount rate = | retny/ ack) 
[next item. [BACK] shows | growth rate = rnc 
[previous entry. [TAB] goes | Periods = aTn]/ancx 
Present value = [RTNJ/LBACK] 
Goto step 4 bp el 


p , 
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y TCTCUJ VART ABLE NAMESLO 











| NAME DESCRIPTION NAME DESCRIPTION 
Growth rate as 
G a percentaade Payment in series 
Growth rate as 
Gl a decimal fraction V Present value of series 
I a percentage X rounding function FNR 
I] decimal fraction K$ Key pressed by user 
Precision in roundin 
a amma Keyboard response 
K Temporary variable X$ converted to decimal 
Number of time periods 


by routine 








y &£3,.|INOTESAND REFERENCES 


| 

| Notes: 1. The discount rate is assumed to be an annual value. If the 
data are not annual, the discount rate has to be adjusted 

appropriately. 





2. The growth rate is assumed to be an annual value. If the 
data are not annual, the growth rate has to be adjusted 
appropriately. 


Wi 


re eae ae 2 tee ae eee er i 
DEE gE ud be nig yk Mabe eri ts doa et 


3. The payments are assumed to be end of the period payments. 


| 
‘ 


Reference: Stermole, F.J., ECONOMIC EVALUATION AND INVESTMENT DECISION 
METHODS, Investment Evaluations Corp., 1974, Appendices E and F. 
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_____JPROGRAM LISTING | 


10 ! compute the present value 

20 ! of a de@ometric gradient 

30 ! series for a finite number 

40 ! of perisads 

SO ! 

60 ! Revision 44/04/82 

7)! 

GO DISP " $ Geometric Gradient $" “Display siqn-on 
90 | 
400 ! round X to J decimal places 

110 ! . 
A420 DEF FNROX,J) = INTOXK410*7+.59/40°3 
130 ! 
140 1 monitor keyboard,returning 
150 ! key valve 


160 ! 
170 DEF FNKS 
180 KG=KEYS © IF KS="" THEN 486 
L70 FNKS=UPRO$ OK) 
200 END DEF 
eid ! 
weQ |} get the input data 
asf)! 
e240) DISP "What is the payment"; © INPUT “Accept input, set error trap | 

X* @ ON ERROR GOTO 280 & 
ao LF Xt#="" THEN 240 “Trap null input 
2&0 TF X$="Q" THEN 786 “TF “Q% than goto program 

options 
70 P=VAL CK) @ OFF ERROR @ GOTO 296 “Convert to numeric 
250 DISP "Gops..."; @ GOTO 249 “Prepend error messaqe to 
prompt and ask again 

e?70 DISP “How many periods"; @ INPUT xs 

@ ON ERROR GOTO 330 
SOG LF X#="" THEN 29Q 
eiO TF X#="Q" THEN 780 
Se NeVALCKG) @ GFF ERROR ® GOTO zag 
$40 DISP "Gops..."; @ GOTO 296 
440 DISP "Discount rate”; © INPUT xX &@ 

ON ERROR COTO 380 
S90 LF X$="" THEN 346 
S60 TF X#é="Q" THEN 790 
O70 T=VALCK) @ GFF ERROR @& T4=1/400 

GOTO 390 
Sou DISP "Gops..."3; @ GOTO 346 
470 DISP "Growth rate"; @ INPUT X% @ GON 

ERROR GOTO 430 
4Q0 1F Xd="" THEN 3909 
440 IF X#="Q" THEN 780 
420 G=VALCX$) @ GFF ERROR @ Gi=G/100 @ 


GOTO 446 & 
430 DISP "Geps..."; @ GOTO 390 


S40 IF .=G THEN VeFxeN ® GOTO $40 
45 | 
46O0 KeC44+Oh / Ode li ded “Compute results 





! 
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_ sd JPROGRAM LISTING 


47) 
480 
4S 0 
SOO 
240 


D2 
50 
"4 0) 
550 
DG (I 
9/0 
30 


S30 


6&0 0 
5410 
42 0 
830 
& 4 0 


&5 G 
SoU 
& 7 0) 
So 0 
&YQ 
700 
440 
720 


7 4G 
Pag 
250 
7&G 
77Q 


vod 


790 
B00 


os 4G 


VEPRCE/ CLEFT LI KOC CLERK) ANE 4/1) 
| 


l display the present value 


DISP "PY = ";SFNR(V,2) © GOSUBR 720 @ 
Tr NUMCQ$>=8 THEN GOTO 5490 

GOIG 730 

| 

! view input and results 

! 

DISP "Payment = ";F @ GOSUB 720 

IF NUMCO¢)=8 THEN GOTO S60 

DISP "Discount rate = ";1 @ GOSUER 7 

0 


IF NUM(G$)=9 THEN GOTO S640 


DISP "Growth rate = ";6 @ GOSUR 720 
TF NUM(CG$)=8 THEN 580 

DISP "Ferieds = "|;N © GOSUE 720 

Tk NUMCG49=8 THEN GOTO 600 

DISF "Present value = ";FNRCYV,2) @ 
GCOSUEB 7eg 

IF NUMCO$)=8 THEN GOTO 626 

GOT 7es 


i monitor keyboard and 

lf accept enily RIN, BACK, or 

| TAK aS valid keys 

| 

Qh=FNKES @ LF NUM CO$443 AND NUMCO4dD) 
HS AND NUMCQE)4442 THEN 720 

LF ONUMCG$o= 442 THEN 930 

RETURN 

| 

l display options menu 

| 

DISP CHRS¢240); "un again, "j;CHRS (24 
4d;"1Gw again, or "“,CHRECES?) ,; 
LNPUT "nd?" ; G& @ QG=UPRC#IOS) 

ON POSCURVE"  Gho4+) GOTO 760,800,566, 
4.0 

DISP @& STOP 


—~Dis t} te y result 


“View input 


“Tf “BACK ’ 
% it 


previou 


~Display 


~ACCEDt 
keys 


options 


only 


data 


em 


TAG 


arid 


7 We 


result 


key pressed show 
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___JPROGRAM DESCRIPTION(L__1 


PRESENT VALUE OF AN ARITHMETIC GRADIENT SERIES 


This program is used to compute the present value of a series of cash flows 
that changes arithmetically. Example required inputs are the initial cash 

flow, the amount of the payment that changes the cash flows, the number of 

periods in the series, and the interest rate. Note that the period of the 

interest rate is the same as the payment period. 








| {SAMPLE PROBLEM. 


The after-tax expenses on a machine are expected to begin 

at $1,200 at the end of the first year and increase by $350 
at the end of each year over the 12-year life of the machine. 
What is the present value of the series if it is discounted 
at 12%? 


a a ee ON nn eee 


sTeP 
ie I carta emee ce a peceomniecotnic dl aneeenoone 
ta [see sign-on nessose | __S Arittmetic Gradients | 
fina is the payment? | 550 pm) 
tow many persons? x2 cari 
ff iscoune rater fe tm 
Dy = 16516.55 
4 [present options menu Run again, View again, or End? V [RTN] 

View the data and results 
CT raymene = sso tg 
CS iscount vate 12 org 
eros ae cr 
resent vatue = 65i6.65 | farm) 


Present options menu Run again, View again, or End? E [RTN] 
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_ EUW JUSERINSTRUCTIONS. 





” 

—~ 

rm 
2 


fun program] 
; 
2 enter data | that, is the Ist cash flow? |S [RTW] 
P| ata is the payment fo cr 
An uppercase "Q" at this time | How many periods? n [RTN] 
[will cause the progarm togo | 


i rn a ra a a a ae rt es mene cr al od ee dls 


i [RTN 
. Rae Vs Or JE 
Program options: Run again, View again, or End? |[RTN] 


if’! then gotote | 
[if '€* then end program | 
ce vitmens 3 
> | View the data and results RTN ] 

CRTN /LBACKT 
ceTW]/EBACK, 
ceTN/CBACK, 
RIN] /CBACK 
fcotostep@ | 


sg 
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eg __JVARIABLE NAMES. 








DESCRIPTION 





DESCRIPTION 
as a percentage W Temporary value 
Discount rate as Number to be 
a decimal function X rounded in FNR 


I ES Lain 

J function FNR K$ Key pressed 

Ye Number of periods Alpha input; used to 
N 

oe 









in analysis control the program 


execution 
Payment 
Present value of payment Input value; converted 
over N time periods at X $ to numeric 
> First cash flow 













I discount rate 






<2 
+f+ 








NOTES AND REFERENCES... 


Reference: Stermole, F.J., ECONOMIC EVALUATION AND INVESTMENT DECISION 
METHODS, Investment Evaluations Corp., 1974, Appendices E and F. 
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a 230 
25'0 


4090 


=u 


450 


Compute the present value 

of an arithmetic gradient 

series for a finite number 
of periods 


Revision 44/04/82 


Round X to J decimal places 
EF FANRCX,J) = INTOXKLO%74+.59/40°9 


Monitor keyboard, returning 
key value 
DEF FNK4 
KS=KEYS @ ITF K#="" THEN 496 
FAK B=UPR Ob CK 
END DEF 


DISP " ~ Arathmetic Gradient $" 
D 


! 
! get the input data 
! 


DISP "What is the i6t cash flow"; &® 
INPUT AG @ ON ERROR GOTO 290 
LFOXG="" THEN 250 

TF X$=“Q" THEN 800 


SEVAL CAKE) @ OFF ERROR @ GOTO 300 
DISP “Oops...’ @ GOTO 2506 


DISP "What 16 the payment"; © INPUT 
AS @ ON ERROR GOTO 346 

IF X#="" THEN 300 

TF X#="G" THEN 800 

P=VALCXt) @ OFF ERROR © GOTO 356 

DISP "Gops..."3; @ GOTO 300 

DIS “How many periods"; @ INPUT X4# 
® ON ERROR GOTO 3906 

Le Xd" THEN 356 

IF X$="G" THEN 806 

N=VALCX$) @ GFF ERROR ®@ GOTO 460 

DISP "Oops..."; © GOTO 356 

DISP "Discount rate"; @ INPUT X% & 
ON ERROR GOTO 4490 

Tk X#="" THEN 400 

LF AF="G" THEN 800 

T=VALCX$) @ OFF ERROR & Ti=I/400 & 
GOTO 470 

DISP "Oops..."; @ GOTG 409 


PF compute the values. 
WeC4eF/ Ch 4749 *%H OSTA 


-“Digplay Sign-on 


“ACCept input, set error trap & 


“Tf nuld input, 


ch 


“Tf “GQ entered, 


apt. ons 


Sk adain 


qate program 


“Convert to numeric 


~Prepend errar 
ask again 


“Compute result 


CG 


prompt 


and 





430 
430) 
500 
510 
520 
93 0) 





540 
0 
560) 
57 0 
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ST shade aoe eget Mie RE fe Me eg BA hl he E go, 8) ge  igumappeten Cae oe im ckeeagete {rte - 
ee oe eo es pee a eee gt MEE ns a esting ated 


590 
&00 
640 


&2y 


630 
o 4 (} 
&59 
650 


570 
6580 
&F0 
700 
740 


en 
fod 
¢ to 


730 
24 





7 0 
760 
77) 
| "78 ( 
| 790 
800 


34.0 
a G 


| 830 


VEWHPKCASTAAN/ CLA KWKC44+0T497N) ) 
VeV+S xu 

| 

! display the present value 


DISP "PYVo= "SFNRCV,2) & GOSUER 740 & 


Tr NUMCQ$)=8 THEN GOTO 530 
GOTO 800 


! yiew the data and results 
{ 


DISP "ist cash flow = ";5 @ GOSUR 7 


40 

LF NUMCGE)=8 THEN GOTO 580 

DISP "Payment = ";P @ GOSUB 740 
TF NUMNCQ$)=8& THEN GOTO 5&0 


DISP "Discount rate = ";1 © GOSUER 7 


40 

IF NUMCO$)=83 THER GOTO 606 

DISP "Periods = ";N @ GOSUR Y4G 

TF NUMCGE)= 8 THEN GOTO 620 

DISP "Present value = ";FNR(V,2) @ 
GOSUR 740 

TF NUMCG$O=& THEN GOTO 640 

GOTO 800 

! monitor keyboard and 

Po accept only RIN, BACK, or 

1 TAR as valid keys 

Qd=F MKS @ TF NUM COSI AND NUM Ci) 
£3 AND NUMCQE)$142 THEN 740 

LE NUM CO$)0=442 THEN G00 

RETURN 


l digpuplay options menu 

DISP CHR#¢2109;"un again, ";,CHR& (24 
4);"iew again, or ";CHRBECL97), 
TNPUY "nd?" ; Q& @ G$=UPROB COS) 

ON POSCOC"KRVE” ,G@¢0+4 GOTO 800,970,580, 
$50 

DISP & STOP 


“Display result 


~Yioew data and 


results 


CT LLLCLCUdI PROGRAM LISTING(LO 


“Tf ’BACK’ key pressed, 
previous item 


“Accept only 


aI ig 


é yy? 


Oo 


65 


show 
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